#!/usr/bin/perl

sub mysub {
        $_[0] =~ s/e/X/;
        #$_[2] =~ s/e/X/;
		print join("|", @_) . "\n";
}

$p = "testen";
mysub $p, "Hallo", "Welt";
print $p . "\n";
